5 IFA=0THENA=1:LOAD"SWAP IN.ASS",8,1
10 IFA=0THENA=1:LOAD"SWAP IN.ASS",8,1
20 SYS49152
30 PRINT"[147]"
40 GOSUB200
50 GETT$:IFT$=""THEN50
60 FORI=14TO214:POKE176,I:NEXT
70 PRINT""
80 GETT$:IFT$=""THEN80
90 GOSUB 300
100 FORI=214TO14STEP-1:POKE176,I:NEXT
110 GOTO 50
200 REM SCREEN 1 AUFBAUEN
210 PRINT"";
220 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
230 PRINT"[221]                                      [221]";
240 PRINT"[221]  DAS IST DER ERSTE DEMO-BILDSCHIRM   [221]";
250 PRINT"[221]                                      [221]";
260 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
270 RETURN
300 REM SCREEN 2 AUFBAUEN
310 PRINT"";
320 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
330 PRINT"[221]                                      [221]";
340 PRINT"[221]  DAS IST DER ZWEITE DEMO-BILDSCHIRM  [221]";
350 PRINT"[221]                                      [221]";
360 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
370 RETURN